﻿
Partial Class Default2
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Using session to save objects to server
        Dim cart As ArrayList
        cart = CType(Session("cart"), ArrayList)
        lstCart.DataSource = cart
        lstCart.DataTextField = "Itemline"
        lstCart.DataBind()
    End Sub

    Protected Sub btnContinue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnContinue.Click
        '  Server.Transfer("Default.aspx")
        Response.Redirect("Default.aspx")
    End Sub

    Protected Sub btnCheckOut_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCheckOut.Click
        Response.Redirect("http://mail.yahoo.com")
    End Sub
End Class
